COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	{ initial declarations for POINTY - please do not destroy this file
C00005 ENDMK
C⊗;
{ initial declarations for POINTY - please do not destroy this file
	or POINTY will not be able to be initialized }
			{ scalars }
DEG←1.0;
DEGREE←1.0;
DEGREES←1.0;
INCHES←1.0;
INCH←1.0;
CM←(1.0/2.54);

			{ vectors }
XHAT←VECTOR(1,0,0);
ZHAT←VECTOR(0,0,1);
YHAT←VECTOR(0,1,0);
NILVECT←VECTOR(0,0,0);

			{ rotation }

NILROT←ROT(XHAT,0);

			{ transes }

NILTRANS←TRANS(NILROT,NILVECT);


			{ frames }

{ STATION←FRAME(NILROT,NILVECT); }

FRAME BPARK,YPARK;
YPARK←FRAME(ROT(YHAT,180.0),VECTOR(40.0,14.0,9.0));
BPARK←FRAME(ROT(YHAT,180.0),VECTOR(43.53125,56.855,9.95875));
FRAME BGRASP;
{FRAME POINTER,YPOINTER;}
{keep the following at this end};
FRAME BARM,YARM;
SCALAR BHAND,YHAND;
SCALAR BARM_ERROR,YARM_ERROR,BHAND_ERROR,YHAND_ERROR,VISE_ERROR,DRIVER_ERROR;
{
AFFIX BGRASP TO BARM AT TRANS(ROT(XHAT,-180),NILVECT);
}
{
AFFIX POINTER TO BARM AT TRANS(ROT(ZHAT,-5.173)*ROT(YHAT,13.2)*ROT(ZHAT,-.417),
			VECTOR(.0121,.119,3.75));
}
			{ macros }
DEFINE NILROTN = ⊂NILROT⊃;
DEFINE NILVEC  = ⊂NILVECT⊃;
DEFINE NILVECTOR = ⊂NILVECT⊃;
DEFINE PANIC_BUTTON=⊂ 1024⊃;    { = '2000 }
DEFINE EXCESSIVE_FORCE=⊂ 2048⊃;	{ ='4000  }
DEFINE TIME_OUT=⊂ 4096⊃;	{ ='10000 }
DEFINE STOP_LIMIT=⊂ 8192⊃;	{ ='20000 }
DEFINE CRLF=⊂"
"⊃;
DEFINE CW=⊂CLOCKWISE⊃;
DEFINE CCW=⊂COUNTER_CLOCKWISE⊃;
DEFINE DIRECTLY=⊂WITH APPROACH = NILDEPROACH WITH DEPARTURE = NILDEPROACH ⊃;
	{ following is end marker }
_____END____INIT